

package TagClient::HtmlSend;


#UML_MODELER_BEGIN_PERSONAL_VARS_HtmlSend

#UML_MODELER_END_PERSONAL_VARS_HtmlSend

use TagClient::View;

use base qw( TagClient::View );



=head1 HTMLSEND



=cut


=head1 PUBLIC ATTRIBUTES

=pod 



=cut


=head1 PUBLIC METHODS

=pod 

=head3 setHtml

   Parameters :
      text : $ : 

   Return : 
      

   Description : 
      

=cut

sub setHtml
{
  my($self,
     $text, # $ : 
    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_setHtml
#UML_MODELER_END_PERSONAL_CODE_setHtml
}




=cut


=head1 METHODS FOR SUBCLASSING



=cut


=head1 PRIVATE METHODS



=cut






return 1;
